home *** CD-ROM | disk | FTP | other *** search
/ BCI NET 2 / BCI NET 2.iso / archives / utilities / blankers / rndblank.lha / RNDBlank.rexx < prev   
Encoding:
OS/2 REXX Batch file  |  1994-12-30  |  503 b   |  17 lines
  1. /* RNDBlank v1.00 by Fergus Duniho */
  2. /* Note: This script requires RexxArpLib 3.0. */
  3. /* It also requires parm.library and WBRun. */
  4. /* Usage: rx RNDBlank <pattern> */
  5.  
  6. if exists("libs:rexxarplib.library") then do
  7.     if ~show("L","rexxarplib.library") then
  8.         call addlib("rexxarplib.library",0,-30)
  9. end
  10.     else say "You need RexxArpLib.library"
  11.  
  12. Arg Pat
  13. Pat = Pat || "~(*.info)"
  14. Blankers = FileList(Pat, Blanker, "F", "E")
  15. RND = Random(1,Blankers,Time("S"))
  16. Address Command "WBRun" Blanker.RND
  17.